# read only, authentication not needed with shared link
gs4_deauth()
path <- "https://docs.google.com/spreadsheets/d/150N38yVYhbGq6NzScBvXQkLCVr9owAmCafzOy2r3gV4/edit?usp=sharing"
df_plan <- read_sheet(path, sheet = 1)
df_plan
df_ingest <- read_sheet(path, sheet = 2)
df_ingest
df_wranglers <- read_sheet(path, sheet = 3)
df_wranglers
df_analytics <- read_sheet(path, sheet = 4)
df_analytics
df_views <- read_sheet(path, sheet = 5)
df_views
df_charts <- read_sheet(path, sheet = 6)
df_charts
df_diagrams <- read_sheet(path, sheet = 7)
df_diagrams
df_graphs <- read_sheet(path, sheet = 8)
df_graphs
df_maps <- read_sheet(path, sheet = 9)
df_maps
df_semiographics <- read_sheet(path, sheet = 10)
df_semiographics
df_tables <- read_sheet(path, sheet = 11)
df_tables
df_temporals <- read_sheet(path, sheet = 12)
df_temporals
df_trees <- read_sheet(path, sheet = 13)
df_trees
df_storytelling <- read_sheet(path, sheet = 14)
df_storytelling
df_summit <- read_sheet(path, sheet = 15)
df_summit
df_case_studies <- read_sheet(path, sheet = 16)
df_case_studies
df_catalog <- rbind(df_plan, df_ingest, df_wranglers, df_analytics, df_views, df_charts, df_diagrams, df_graphs, df_maps, df_semiographics, df_tables, df_temporals, df_trees, df_storytelling, df_summit)
df_catalog <- df_catalog %>% mutate(ACTIVITY = factor(ACTIVITY,
levels = c("2-plan",
"3-ingest",
"4-wranglers",
"5-analytics",
"6-views",
"7-charts",
"8-diagrams",
"9-graphs",
"10-maps",
"11-semiographics",
"12-tables",
"13-temporals",
"14-trees",
"15-storytelling",
"16-summit")),
SUB_ACTIVITY = factor(SUB_ACTIVITY),
TASK = factor(TASK),
STATUS = factor(STATUS),
TEAM = factor(TEAM))
df_catalog
theme_opts <- theme(
text = element_text(family = "roboto_mono", size = 16),
plot.title = element_text(color = "black", size = 16, face = "bold"),
plot.subtitle = element_text(color = "black", size = 12),
plot.caption = element_text(color = "#555555", size = 10),
# axis.title.x = element_blank(),
# axis.title.y = element_blank(),
# axis.text.x = element_text(vjust = 12),
panel.border = element_blank(),
panel.background = element_blank(),
# panel.grid.minor = element_blank(),
# panel.grid.major = element_blank(),
legend.position='none'
)
activity_palette <- c("2-plan" = "#B71C1C",
"3-ingest" = "#880E4F",
"4-wranglers" = "#4A148C",
"5-analytics" = "#311B92",
"6-views" = "#1A237E",
"7-charts" = "#0D47A1",
"8-diagrams" = "#01579B",
"9-graphs" = "#006064",
"10-maps" = "#004D40",
"11-semiographics" = "#1B5E20",
"12-tables" = "#33691E",
"13-temporals" = "#9E9D24",
"14-trees" = "#F57F17",
"15-storytelling" = "#FF6F00",
"16-summit" = "#E65100"
)
df_activity_summary <- df_catalog %>% group_by(ACTIVITY) %>% count()
df_activity_summary
v_activity_summary <- ggplot(df_activity_summary, aes(x = n, y = ACTIVITY, fill = ACTIVITY)) +
geom_bar(stat = "identity") +
scale_y_discrete(limits = rev) +
scale_fill_manual(values = activity_palette) +
labs( title = "Kamino Activity Summary",
subtitle = "Content View",
caption = NULL,
x = "count of articles",
y = NULL) +
theme_bw() +
theme_opts
girafe(ggobj = v_activity_summary, width_svg = 1280/72, height_svg = 720/72,
options = list(opts_sizing(rescale = TRUE, width = 0.75))
)
df_sub_activity_summary <- df_catalog %>% group_by(ACTIVITY, SUB_ACTIVITY) %>% count()
df_sub_activity_summary
df_task_summary <- df_catalog %>% group_by(ACTIVITY, SUB_ACTIVITY, TASK) %>% count()
df_task_summary
df_activity_status_summary <- df_catalog %>% group_by(ACTIVITY, STATUS) %>% count()
df_activity_status_summary
v_activity_status_summary <- ggplot(df_activity_status_summary, aes(x=n, y=ACTIVITY, fill=STATUS)) +
geom_bar(position="stack", stat="identity") +
scale_y_discrete(limits = rev) +
# scale_fill_manual(values = activity_palette) +
labs( title = "Kamino Activity Summary",
subtitle = "Status View",
caption = NULL,
x = "count of articles by status",
y = NULL) +
theme_bw() +
theme_opts
girafe(ggobj = v_activity_status_summary, width_svg = 1280/72, height_svg = 720/72,
options = list(opts_sizing(rescale = TRUE, width = 0.75))
)
df_subactivity_status_summary <- df_catalog %>% group_by(ACTIVITY, SUB_ACTIVITY, STATUS) %>% count()
df_subactivity_status_summary
v_subactivity_status_summary <- ggplot(df_subactivity_status_summary, aes(x=n, y=SUB_ACTIVITY, fill=STATUS)) +
geom_bar(position="stack", stat="identity") +
scale_y_discrete(limits = rev) +
facet_grid(rows = vars(ACTIVITY), scales = "free_y", space = "free") +
labs( title = "Kamino Activity Summary",
subtitle = "Status View",
caption = NULL,
x = "count of articles by status",
y = NULL) +
theme_bw() +
theme_opts
girafe(ggobj = v_subactivity_status_summary, width_svg = 1280/72, height_svg = 1280/72,
options = list(opts_sizing(rescale = TRUE, width = 0.75))
)